home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 May: Tool Chest / Dev.CD May 00 TC.toast / pc / tool chest / development kits / hypercard related / xcmds & xfcns / help xfcn 1.4 / helplab / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1993-06-13  |  3.0 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2969</cardID>
  8.     <listID>2387</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>296</height>
  15.     </cardSize>
  16.     <script>--
  17. -- Demo stack for Help XFCN
  18. --
  19. -- 12-04-90 JRP original
  20. -- 01-15-91 JRP add returnKey handler (for 7.0b3 testing)
  21. -- 01-18-91 JRP add TurnOn and TurnOff
  22. -- 02-08-91 JRP cosmetic touch-up to scripts
  23. -- 02-21-91 JRP add advanced feature card (1.2d1)
  24. --
  25. -- XFCN calls are located only in this script.
  26. -- The scripts in other objects
  27. -- reference the handlers located here.
  28. --
  29. on TurnOn
  30. put Help("On") into cd fld "helpResult"
  31. end TurnOn
  32.  
  33. on TurnOff
  34. put Help("Off") into cd fld "helpResult"
  35. end TurnOff
  36.  
  37. on ShowBalloon helpMessage, tip
  38. put Help("ShowBalloon", helpMessage, tip)¬¨
  39. into cd fld "helpResult"
  40. Be853Free helpMessage, tip
  41. end ShowBalloon
  42.  
  43. on ShowIfBalloon helpMessage, tip
  44. put Help("ShowIfBalloon", helpMessage, tip)¬¨
  45. into cd fld "helpResult"
  46. Be853Free helpMessage, tip
  47. end ShowIfBalloon
  48.  
  49. on ShowBalloonWithHotRect helpMessage, tip, hotRect
  50. put Help("ShowBalloon", helpMessage, tip, hotRect)¬¨
  51. into cd fld "helpResult"
  52. end ShowBalloonWithHotRect
  53.  
  54. on ShowAutoBalloon helpMessage
  55. if the hilite of cd btn "Auto-Show" then
  56. put Help("ShowBalloon", helpMessage, prettyTip())¬¨
  57. into cd fld "helpResult"
  58. Be853Free helpMessage, prettyTip()
  59. end if
  60. end ShowAutoBalloon
  61.  
  62. on Be853Free helpMessage, tip
  63. -- a -853 means that the Help Manager detected a
  64. -- rapid cursor movement and, thinking that the
  65. -- cursor was just 'passing thru', did not display
  66. -- the balloon.  We try again until successful.
  67. repeat until "-853" is not in cd fld "helpResult"
  68. put Help("ShowBalloon", helpMessage, tip)¬¨
  69. into cd fld "helpResult"
  70. end repeat
  71. end Be853Free
  72.  
  73. on RemoveBalloon
  74. put Help("RemoveBalloon") into cd fld "helpResult" of first card
  75. end RemoveBalloon
  76.  
  77. on RemoveAutoBalloon
  78. if the hilite of cd btn "Auto-Show" of the first card then RemoveBalloon
  79. end RemoveAutoBalloon
  80.  
  81. function prettyTip
  82. -- create a pretty location for the balloon tip
  83. -- use lower-right corner of button with a wee tweak
  84. -- The tip can also be rotated around the balloon
  85. -- by selecting a variant.  This is not currently
  86. -- accessible from the XFCN, but it can be done....
  87. -- If you have read this far, then you might be
  88. -- interested.  Contact John if you are.
  89. put the rect of the target into targetRect
  90. put item 3 of targetRect & "," & item 4 of targetRect into tip
  91. subtract 10 from item 1 of tip
  92. subtract 10 from item 2 of tip
  93. return tip
  94. end prettyTip</script>
  95.     <background id="2576" file="background_2576.xml" name="" />
  96.     <card id="2969" file="card_2969.xml" marked="false" name="Basic" owner="2576" />
  97.     <card id="3977" file="card_3977.xml" marked="false" name="Advanced" owner="2576" />
  98.     <card id="3607" file="card_3607.xml" marked="false" name="Release Notes" owner="2576" />
  99. </stack>
  100.